home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON01 / ACT01A / L01A1F.DIR / scripts_16_dragging freckles.ls < prev    next >
Encoding:
Text File  |  2003-05-01  |  1.1 KB  |  41 lines
  1. property spr, basketSprite, maskSprite
  2. global gObj
  3.  
  4. on mouseEnter me
  5.   spr = the currentSpriteNum
  6.   basketSprite = 5
  7.   maskSprite = spr - 10
  8.   psmouseEnter(gObj, the currentSpriteNum)
  9. end
  10.  
  11. on mouseDown me
  12.   psMouseDown(gObj, spr, spr - 10)
  13. end
  14.  
  15. on mouseWithin me
  16.   set the moveableSprite of sprite spr to 1
  17.   if sprite spr intersects basketSprite then
  18.     set the loc of sprite maskSprite to the loc of sprite basketSprite
  19.   else
  20.     set the loc of sprite maskSprite to point(1000, 1000)
  21.   end if
  22.   updateStage()
  23. end
  24.  
  25. on mouseUp me
  26.   if sprite spr intersects basketSprite then
  27.     dragName = (the member of sprite spr).name
  28.     maskName = (the member of sprite maskSprite).name
  29.     set the loc of sprite maskSprite to point(1000, 1000)
  30.     switchMember = member(maskName & "." & dragName, "draggablesswitch")
  31.     set the member of sprite basketSprite to switchMember
  32.     set the rect of sprite basketSprite to the rect of sprite maskSprite
  33.     set the loc of sprite spr to point(1000, 1000)
  34.     updateStage()
  35.   else
  36.     set the moveableSprite of sprite spr to 0
  37.     puppetSprite(spr, 0)
  38.   end if
  39.   updateStage()
  40. end
  41.